1 A$=" A9008DE202AD760229078DE1022004F2AD76024A29078DE102208BF1A9B6A0C34CB0CC"
2 FORI=1TO35:POKE#3FF+I,VAL("#"+MID$(A$,I*2,2)):NEXT:DOKE#1B,#400